home *** CD-ROM | disk | FTP | other *** search
/ MacFormat España 24 / MacFormat n. 24 (Spain) / MacFormat 24.bin / Demos / Jungle Activated! / JungleActivated Demo / jung DEMO d / 00077_Spin Routine.ls < prev    next >
Encoding:
Text File  |  1996-10-14  |  345 b   |  19 lines
  1. on exitFrame
  2.   global gMemorySize
  3.   go(the frame)
  4.   puppetSprite(1, 1)
  5.   repeat with i = 1 to 31
  6.     if i = 31 then
  7.       set the castNum of sprite 1 to 1
  8.       updateStage()
  9.     else
  10.       set the castNum of sprite 1 to i
  11.       updateStage()
  12.     end if
  13.     if i = 31 then
  14.       puppetSprite(1, 0)
  15.       go("Studio")
  16.     end if
  17.   end repeat
  18. end
  19.